home *** CD-ROM | disk | FTP | other *** search
/ The Rolling Stones: Shine a Light (Press Kit) / Shine a Light (Press Kit).iso / pc / program.dxr / Internal_17_HELP_GOTO_CASE_BEHAVIOR.ls < prev    next >
Encoding:
Text File  |  2008-03-03  |  362 b   |  23 lines
  1. global gPrevFrm
  2.  
  3. on mouseWithin
  4.   cursor(280)
  5. end
  6.  
  7. on mouseLeave
  8.   cursor(0)
  9. end
  10.  
  11. on mouseUp me
  12.   frmlbl = the frameLabel
  13.   if frmlbl = "Save" then
  14.     member("saveshot").image = (the stage).image
  15.     go("SaveHelp")
  16.   else
  17.     member("screenshot").image = (the stage).image
  18.     go("helptest")
  19.   end if
  20.   gPrevFrm.add(frmlbl)
  21.   sound(3).play(member("Click"))
  22. end
  23.